COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE NETTST
C00003 ENDMK
C⊗;
	TITLE NETTST

A←1
P←17

PDLEN←←40
PDL:	BLOCK PDLEN

START:	RESET
	MOVE P,[IOWD PDLEN,PDL]
	MOVEI A,[ASCIZ/joE/]
	PUSHJ P,EXPTST
	MOVEI A,[ASCIZ/OZ/]
	PUSHJ P,EXPTST
	MOVEI A,[ASCIZ/Score/]
	PUSHJ P,EXPTST
	EXIT

EXPTST:	OUTSTR (A)
	PUSHJ P,EXPABR↑
	 JRST [	OUTSTR [ASCIZ/ ** failed! -- /]
		JRST SHOW]
	OUTSTR [ASCIZ/ --> /]
SHOW:	OUTSTR (A)
	OUTSTR [ASCIZ/
/]
	POPJ P,

	END START